10 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0
20 R=54272:A=1
30 N=INT(10*RND(1))+1:P=INT(10*RND(1))+1:Q=INT(15*RND(1))+1
40 V=INT(1000*RND(1))+1024
50 IFV+N>2023THENV=V-N:GOTO20
60 IFV+(40*P)>2023THENV=V-(40*P):GOTO20
70 FORZ=1TOP:FORX=1TON:POKEV+A,160:POKEV+A+R,Q:V=V+A:NEXT:V=V+40-N:NEXTZ:GOTO30